home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Source Code / Visual Basic Source Code.iso / vbsource / ttedit / pagesetu.frm (.txt) < prev    next >
Encoding:
Visual Basic Form  |  1994-11-28  |  8.5 KB  |  269 lines
  1. VERSION 2.00
  2. Begin Form frmPageSetup 
  3.    BackColor       =   &H00C0C0C0&
  4.    BorderStyle     =   1  'Fixed Single
  5.    Caption         =   "Page Setup"
  6.    ClientHeight    =   2295
  7.    ClientLeft      =   4110
  8.    ClientTop       =   3495
  9.    ClientWidth     =   3630
  10.    Height          =   2700
  11.    Icon            =   PAGESETU.FRX:0000
  12.    Left            =   4050
  13.    LinkTopic       =   "Form1"
  14.    MaxButton       =   0   'False
  15.    MinButton       =   0   'False
  16.    ScaleHeight     =   153
  17.    ScaleMode       =   3  'Pixel
  18.    ScaleWidth      =   242
  19.    Top             =   3150
  20.    Width           =   3750
  21.    Begin TextBox txtLeft 
  22.       FontBold        =   0   'False
  23.       FontItalic      =   0   'False
  24.       FontName        =   "MS Sans Serif"
  25.       FontSize        =   8.25
  26.       FontStrikethru  =   0   'False
  27.       FontUnderline   =   0   'False
  28.       Height          =   300
  29.       Left            =   720
  30.       TabIndex        =   0
  31.       Text            =   ".75"
  32.       Top             =   1260
  33.       Width           =   855
  34.    End
  35.    Begin TextBox txtRight 
  36.       FontBold        =   0   'False
  37.       FontItalic      =   0   'False
  38.       FontName        =   "MS Sans Serif"
  39.       FontSize        =   8.25
  40.       FontStrikethru  =   0   'False
  41.       FontUnderline   =   0   'False
  42.       Height          =   300
  43.       Left            =   2400
  44.       TabIndex        =   1
  45.       Text            =   ".75"
  46.       Top             =   1260
  47.       Width           =   855
  48.    End
  49.    Begin TextBox txtBottom 
  50.       FontBold        =   0   'False
  51.       FontItalic      =   0   'False
  52.       FontName        =   "MS Sans Serif"
  53.       FontSize        =   8.25
  54.       FontStrikethru  =   0   'False
  55.       FontUnderline   =   0   'False
  56.       Height          =   300
  57.       Left            =   2400
  58.       TabIndex        =   3
  59.       Text            =   "1"
  60.       Top             =   1680
  61.       Width           =   855
  62.    End
  63.    Begin TextBox txtTop 
  64.       FontBold        =   0   'False
  65.       FontItalic      =   0   'False
  66.       FontName        =   "MS Sans Serif"
  67.       FontSize        =   8.25
  68.       FontStrikethru  =   0   'False
  69.       FontUnderline   =   0   'False
  70.       Height          =   300
  71.       Left            =   720
  72.       TabIndex        =   2
  73.       Text            =   "1"
  74.       Top             =   1680
  75.       Width           =   855
  76.    End
  77.    Begin TextBox txtFooter 
  78.       Enabled         =   0   'False
  79.       FontBold        =   0   'False
  80.       FontItalic      =   0   'False
  81.       FontName        =   "MS Sans Serif"
  82.       FontSize        =   8.25
  83.       FontStrikethru  =   0   'False
  84.       FontUnderline   =   0   'False
  85.       Height          =   300
  86.       Left            =   960
  87.       TabIndex        =   13
  88.       Text            =   "Page &p"
  89.       Top             =   600
  90.       Width           =   1335
  91.    End
  92.    Begin TextBox txtHeader 
  93.       Enabled         =   0   'False
  94.       FontBold        =   0   'False
  95.       FontItalic      =   0   'False
  96.       FontName        =   "MS Sans Serif"
  97.       FontSize        =   8.25
  98.       FontStrikethru  =   0   'False
  99.       FontUnderline   =   0   'False
  100.       Height          =   300
  101.       Left            =   960
  102.       TabIndex        =   12
  103.       Text            =   "&f"
  104.       Top             =   180
  105.       Width           =   1335
  106.    End
  107.    Begin CommandButton btnCancel 
  108.       Cancel          =   -1  'True
  109.       Caption         =   "Cancel"
  110.       FontBold        =   0   'False
  111.       FontItalic      =   0   'False
  112.       FontName        =   "MS Sans Serif"
  113.       FontSize        =   8.25
  114.       FontStrikethru  =   0   'False
  115.       FontUnderline   =   0   'False
  116.       Height          =   400
  117.       Left            =   2520
  118.       TabIndex        =   5
  119.       TabStop         =   0   'False
  120.       Top             =   540
  121.       Width           =   975
  122.    End
  123.    Begin CommandButton btnOk 
  124.       Caption         =   "OK"
  125.       Default         =   -1  'True
  126.       FontBold        =   0   'False
  127.       FontItalic      =   0   'False
  128.       FontName        =   "MS Sans Serif"
  129.       FontSize        =   8.25
  130.       FontStrikethru  =   0   'False
  131.       FontUnderline   =   0   'False
  132.       Height          =   400
  133.       Left            =   2520
  134.       TabIndex        =   4
  135.       TabStop         =   0   'False
  136.       Top             =   90
  137.       Width           =   975
  138.    End
  139.    Begin Label lblMargins 
  140.       AutoSize        =   -1  'True
  141.       BackColor       =   &H00C0C0C0&
  142.       Caption         =   " &Margins: "
  143.       FontBold        =   0   'False
  144.       FontItalic      =   0   'False
  145.       FontName        =   "MS Sans Serif"
  146.       FontSize        =   8.25
  147.       FontStrikethru  =   0   'False
  148.       FontUnderline   =   0   'False
  149.       Height          =   195
  150.       Left            =   240
  151.       TabIndex        =   6
  152.       Top             =   960
  153.       Width           =   690
  154.    End
  155.    Begin Label Label1 
  156.       AutoSize        =   -1  'True
  157.       BackStyle       =   0  'Transparent
  158.       Caption         =   "&Left:"
  159.       FontBold        =   0   'False
  160.       FontItalic      =   0   'False
  161.       FontName        =   "MS Sans Serif"
  162.       FontSize        =   8.25
  163.       FontStrikethru  =   0   'False
  164.       FontUnderline   =   0   'False
  165.       Height          =   195
  166.       Left            =   240
  167.       TabIndex        =   7
  168.       Top             =   1320
  169.       Width           =   315
  170.    End
  171.    Begin Label Label2 
  172.       AutoSize        =   -1  'True
  173.       BackStyle       =   0  'Transparent
  174.       Caption         =   "&Top:"
  175.       FontBold        =   0   'False
  176.       FontItalic      =   0   'False
  177.       FontName        =   "MS Sans Serif"
  178.       FontSize        =   8.25
  179.       FontStrikethru  =   0   'False
  180.       FontUnderline   =   0   'False
  181.       Height          =   195
  182.       Left            =   240
  183.       TabIndex        =   8
  184.       Top             =   1740
  185.       Width           =   330
  186.    End
  187.    Begin Label Label3 
  188.       AutoSize        =   -1  'True
  189.       BackStyle       =   0  'Transparent
  190.       Caption         =   "&Right:"
  191.       FontBold        =   0   'False
  192.       FontItalic      =   0   'False
  193.       FontName        =   "MS Sans Serif"
  194.       FontSize        =   8.25
  195.       FontStrikethru  =   0   'False
  196.       FontUnderline   =   0   'False
  197.       Height          =   195
  198.       Left            =   1800
  199.       TabIndex        =   9
  200.       Top             =   1320
  201.       Width           =   420
  202.    End
  203.    Begin Label Label4 
  204.       AutoSize        =   -1  'True
  205.       BackStyle       =   0  'Transparent
  206.       Caption         =   "&Bottom:"
  207.       FontBold        =   0   'False
  208.       FontItalic      =   0   'False
  209.       FontName        =   "MS Sans Serif"
  210.       FontSize        =   8.25
  211.       FontStrikethru  =   0   'False
  212.       FontUnderline   =   0   'False
  213.       Height          =   195
  214.       Left            =   1800
  215.       TabIndex        =   14
  216.       Top             =   1740
  217.       Width           =   540
  218.    End
  219.    Begin Label Label6 
  220.       AutoSize        =   -1  'True
  221.       BackStyle       =   0  'Transparent
  222.       Caption         =   "&Footer"
  223.       FontBold        =   0   'False
  224.       FontItalic      =   0   'False
  225.       FontName        =   "MS Sans Serif"
  226.       FontSize        =   8.25
  227.       FontStrikethru  =   0   'False
  228.       FontUnderline   =   0   'False
  229.       Height          =   195
  230.       Left            =   180
  231.       TabIndex        =   11
  232.       Top             =   660
  233.       Width           =   450
  234.    End
  235.    Begin Label Label5 
  236.       AutoSize        =   -1  'True
  237.       BackStyle       =   0  'Transparent
  238.       Caption         =   "&Header"
  239.       FontBold        =   0   'False
  240.       FontItalic      =   0   'False
  241.       FontName        =   "MS Sans Serif"
  242.       FontSize        =   8.25
  243.       FontStrikethru  =   0   'False
  244.       FontUnderline   =   0   'False
  245.       Height          =   195
  246.       Left            =   180
  247.       TabIndex        =   10
  248.       Top             =   240
  249.       Width           =   525
  250.    End
  251. Option Explicit
  252. Sub btnCancel_Click ()
  253.     Unload Me
  254. End Sub
  255. '    Center the form before it gets displayed
  256. Sub Form_Load ()
  257.        Left = (MDI.Width - Width) / 2 + MDI.Left ' Center form horizontally.
  258.        Top = (MDI.Height - Height) / 2 + MDI.Top ' Center form vertically.
  259. End Sub
  260. ' Give the form the 3d look
  261. Sub Form_Paint ()
  262.     Dim X As Integer
  263.     For X = 0 To Controls.Count - 1
  264.       If TypeOf Controls(X) Is TextBox Then Call Indent(Controls(X))
  265.     Next
  266.     Raiseform Me
  267.     Call Frame(68, 8, 77, 225, lblMargins)
  268. End Sub
  269.